home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / games1 / szenrnv2.lha / HDInstall < prev    next >
Text File  |  1996-01-16  |  5KB  |  235 lines
  1.  
  2. (complete 0)
  3. (set @default-dest "SYS:")
  4.  
  5. ; Texts
  6.  
  7. (set #Intro-Txt
  8. (cat "\n\nWelcome to \n"
  9. "THE SZENARION V2.0\n"
  10. "HD Installation\n\n\n\n"
  11. "®1993-96 by Stefan Waschk\n\n"
  12. "this is SHAREWARE!\n"
  13. "see manual for registration or write to:\n"
  14. "___________________________________________________\n"
  15. "Stefan Waschk/Siegfriedstr.119/D-38106 Braunschweig\n\n"
  16. ))(set #Warning-Txt
  17. (cat "\n\nWARNING!\n"
  18. "--------\n\n"
  19. "Szenarion requires 5 MB free on your disk \n\n"
  20. "3MB RAM, >=Kick2.0, 68020++, AGA or FLICKERFIXER\n\n"
  21. ))(set #Path-Txt
  22. (cat "Select a directory for\n"
  23. "THE SZENARION V2.0"
  24. ))(set #Path-Help
  25. (cat "\nThis section lets you choose the "
  26. "target directory to install Szenarion. \n\n"
  27. "Default is SYS:\n\n\n"
  28. @askdir-help
  29. ))(set #Rename-Help
  30. (cat "\n    If your AMIGA has an arithmetic unit (MMU),\n"
  31.      "    rendering will take part much faster.\n"
  32.      "    Basic A1200 and 68LCxx AMIGAs don`t have it!\n\n\n"
  33. @rename-help
  34. ))(set #Screenmode-Help
  35. (cat "\n    If you own a A1200, A4000 with the AGA chipset,\n"
  36.      "    you must choose the EURO72 screenmode.\n\n"
  37.      "    With A2000, A3000(..) and FLICKERFIXER, you have\n"
  38.      "    to choose NTSCHIRESLACED!\n\n"
  39.      "    PICASSOII-users can use both, but have to set\n"
  40.      "    the refresh-time to one second. Scrolling will\n"
  41.      "    be worse, for that isn't done by blitter!\n"
  42. ))
  43.  
  44. ; Main 
  45.  
  46. (message #Intro-Txt)
  47. (message #Warning-Txt)
  48. (set target 
  49. (askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
  50. ))
  51.  
  52. (set @default-dest target)
  53.  
  54. (copyfiles
  55. (prompt "Copying to " #target)
  56. (help @copy-files-help)
  57. (source "")
  58. (dest (tackon target "Szenarion"))
  59. (pattern "szen_1.lha")
  60. )
  61.  
  62. (complete 10)
  63. (set #path1
  64. (cat "Tools/lha x "
  65.      (tackon target "Szenarion/szen_1.lha ")
  66.      (tackon target "Szenarion/")
  67. ))
  68.  
  69. (run #path1
  70.   (prompt "extracting file")
  71.   (help "not available now")
  72. )
  73. (set #path1
  74. (cat (tackon target "Szenarion/szen_1.lha")
  75. ))
  76. (Delete #path1)
  77.  
  78. (complete 55)
  79.  
  80. (if (exists "szen_2.lha") 
  81.   (
  82.     (copyfiles
  83.     (prompt "Copying to " #target)
  84.     (help @copy-files-help)
  85.     (source "")
  86.     (dest (tackon target "Szenarion"))
  87.     (pattern "szen_2.lha")
  88.     )
  89.   )
  90.   (
  91.     (message "\nInstert DISK II in drive\n\nDF0:\n___\n")
  92.     (copyfiles
  93.     (prompt "Copying to " #target)
  94.     (help @copy-files-help)
  95.     (source "DF0:")
  96.     (dest (tackon target "Szenarion"))
  97.     (pattern "szen_2.lha")
  98.     )
  99.     (message "\nReinstert DISK I in drive\n\nDF0:\n___\n")
  100.   )
  101. )
  102.  
  103. (complete 60)
  104.  
  105. (set #path1
  106. (cat "Tools/lha x " 
  107.      (tackon target "Szenarion/szen_2.lha ")     
  108.      (tackon target "Szenarion/")
  109. ))
  110.  
  111. (run #path1
  112.   (prompt "extracting file")
  113.   (help "not available now")
  114. )
  115. (complete 90)
  116.  
  117. (set #path1
  118. (cat (tackon target "Szenarion/szen_2.lha")
  119. ))
  120. (Delete #path1)
  121.  
  122.  
  123. (set #path2
  124. (cat (tackon target "Szenarion/ENV/Szenarion.config")
  125. ))
  126.  
  127. (
  128.   if ( askbool
  129.         (prompt "now modifying the SCREENMODE. EURO72(AGA)\nor NTSCHIRESLACED (FLICKERFIXER) is possibe.\n\n____________________________________\nDo you want to open EURO72 screens?" )
  130.         (help #Screenmode-Help)
  131.      )
  132.   (
  133.      (set #path1
  134.      (cat (tackon target "Szenarion/ENV/Szenarion.config.AGA")
  135.      ))
  136.      (Rename #path1 #path2)
  137.      (Delete #path1)
  138.      (set #path1
  139.      (cat (tackon target "Szenarion/ENV/Szenarion.config.noAGA")
  140.      ))
  141.      (Delete #path1)
  142.   )
  143.   (
  144.      (set #path1
  145.      (cat (tackon target "Szenarion/ENV/Szenarion.config.noAGA")
  146.      ))
  147.      (Rename #path1 #path2)
  148.      (Delete #path1)
  149.      (set #path1
  150.      (cat (tackon target "Szenarion/ENV/Szenarion.config.AGA")
  151.      ))
  152.      (Delete #path1)
  153.   )
  154. )
  155. (complete 95)
  156.  
  157. (set #path2
  158. (cat (tackon target "Szenarion/RKSim")
  159. ))
  160. (set #path3
  161. (cat (tackon target "Szenarion/RFEditor")
  162. ))
  163. (
  164.   if ( askbool
  165.         (prompt "now installing the SZEMARION tools\n\nRKSim & RFEditor\n__________________________________\nDoes your AMIGA have a MMU ?" )
  166.         (help #Rename-Help)
  167.      )
  168.   (
  169.      (set #path1
  170.      (cat (tackon target "Szenarion/RKSim.68020MMU")
  171.      ))
  172.      (Rename #path1 #path2)
  173.  
  174.      (set #path1
  175.      (cat (tackon target "Szenarion/RFEditor.68020MMU")
  176.      ))
  177.      (Rename #path1 #path3)
  178.  
  179.      (set #path1
  180.      (cat (tackon target "Szenarion/RKSim.68020noMMU")
  181.      ))
  182.      (Delete #path1)
  183.  
  184.      (set #path1
  185.      (cat(tackon target "Szenarion/RFEditor.68020noMMU")
  186.      ))
  187.      (Delete #path1)
  188.   )
  189.   (
  190.      (set #path1
  191.      (cat (tackon target "Szenarion/RKSim.68020noMMU")
  192.      ))
  193.      (Rename #path1 #path2)
  194.  
  195.      (set #path1
  196.      (cat (tackon target "Szenarion/RFEditor.68020noMMU")
  197.      ))
  198.      (Rename #path1 #path3)
  199.  
  200.      (set #path1
  201.      (cat (tackon target "Szenarion/RKSim.68020MMU")
  202.      ))
  203.      (Delete #path1)
  204.  
  205.      (set #path1
  206.      (cat (tackon target "Szenarion/RFEditor.68020MMU")
  207.      ))
  208.      (Delete #path1)
  209.   )
  210. )
  211. (complete 99)
  212. (set #path1
  213. (cat target
  214.      "Szenarion.info"
  215. ))
  216.  
  217. (copyfiles
  218. (prompt "Copying to " #target)
  219. (help @copy-files-help)
  220. (source "")
  221. (dest target)
  222. (pattern "info")
  223. )
  224.  
  225. (set #path1
  226. (cat (tackon target "Szenarion.info")
  227. ))
  228. (set #path2
  229. (cat (tackon target "info")
  230. ))
  231.  
  232. (rename #path2 #path1)
  233.  
  234. (complete 100)
  235.